unit gdata;

interface


uses
Classes;
type
  tdlinfo=record
  dlren:string;
  dladmin:string;
  roleid:Integer;
  taxflag:Boolean;
  kpxe:Double;
  mrsl:Double;
  xfzh:string;
  xfdz:string;
  xfmc:string;
  xfsh:string;
  showdlg:Integer;
  kpprt:Boolean;
  end;
var
   dlinfo:tdlinfo;
   installkp:Boolean;
implementation

initialization
  installkp:=False;
end.


